home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
os2
/
ftree11a.zip
/
install.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-10-30
|
2KB
|
60 lines
/* FamilyTree installation */
SAY 'FamilyTree Installation'
SAY
SAY ' (d)eutsch (e)nglish d(u)tch (f)rench ?'
CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
CALL SysLoadFuncs
name="Family Tree 1.1a"
language=SysGetKey(NOECHO)
PARSE UPPER VAR language language
SAY
/* Do a german install */
IF language='D' THEN DO
SAY 'Erzeuge Onlinehilfe !'
'@copy German.hlp FTree.hlp >nul'
SAY 'Erzeuge Sprachresource !'
'@copy German.dll FTree.dll >nul'
SAY 'Erzeuge Programmobjekt !'
IF 0=SysCreateObject("WPProgram",name,"<WP_DESKTOP>","EXENAME="||DIRECTORY()||"\ftree.exe;OBJECTID=<FTREE>",replace)
THEN SAY '*** Fehler beim Erzeugen des Programmobjektes!'
EXIT
END
/* Do a dutch install */
IF language='U' THEN DO
SAY 'Creating english online-help !'
'@copy English.hlp FTree.hlp >nul'
SAY 'Creating dutch language-resource !'
'@copy Dutch.dll FTree.dll >nul'
SAY 'Creating program object !'
IF 0=SysCreateObject("WPProgram",name,"<WP_DESKTOP>","EXENAME="||DIRECTORY()||"\ftree.exe;OBJECTID=<FTREE>",replace)
THEN SAY '*** Error creating program object !'
EXIT
END
/* Do a french install */
IF language='F' THEN DO
SAY 'Creating english online-help !'
'@copy English.hlp FTree.hlp >nul'
SAY 'Creating french language-resource !'
'@copy French.dll FTree.dll >nul'
SAY 'Creating program object !'
IF 0=SysCreateObject("WPProgram",name,"<WP_DESKTOP>","EXENAME="||DIRECTORY()||"\ftree.exe;OBJECTID=<FTREE>",replace)
THEN SAY '*** Error creating program object !'
EXIT
END
/* Do an english install */
SAY 'Creating online-help !'
'@copy English.hlp FTree.hlp >nul'
SAY 'Creating language-resource !'
'@copy English.dll FTree.dll >nul'
SAY 'Creating program object !'
IF 0=SysCreateObject("WPProgram",name,"<WP_DESKTOP>","EXENAME="||DIRECTORY()||"\ftree.exe;OBJECTID=<FTREE>",replace)
THEN SAY '*** Error creating program object !'
EXIT